Amiga Format CD 46/Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso/-serious-/hardware/volchange/install

Text File | 1999-09-06 | 6KB | 206 lines

; --- Installation script for VolChange © by Frank Fenn ---

(set @app-name "VolChange")
(set #def_lang_English 0)
(set #def_lang_Deutsch 1)

; --- English is the default language ---

(set #Welcome
  (cat "Welcome to the VolChange installation\n\n"
       "Copyright 1998 by Frank Fenn\n"))

(set #VolChangeDir
  (cat "Choose VolChange home directory\n"
       "(NO extra drawer will be created!)"))

(set #WhatCatalog
  (cat "Which catalog file do you want to install?\n"
       "(English language is built-in)"))

(set #done_1
  (cat "\nVolChange has been succesfuly installed.\n\n"
       "Click the \"VolChange\" icon in the\n\n"))

(set #done_2
  (cat "\n\ndirectory to start\n\n"
       "please send bugreports and improvements to [e-mail]"))

(set #wrongOS           "VolChange needs at least OS3.1 to run\n")
(set #WhatInstall       "What do you want to install ?")
(set #StartPgm          "Would you like to start the program now ?")
(set #AlreadyInstalled1 "VolChange already installed\n\n")
(set #AlreadyInstalled2 " is the installed version\n\n")
(set #AlreadyInstalled3 " should be copied")
(set #VolChange          "VolChange")
(set #Docs              "VolChange documents")
(set #Guide             "VolChange guide")
(set #StartHelp         "Do you want to start the program right now\n\n")
(set #CopyingPgm        "\nCopying VolChange to %s.")
(set #CopyingDocs       "\nCopying Docs...")
(set #CopyingGuide      "\nCopying VolChange to ")
(set #Yes               "Yes")
(set #No                "No")

(IF (= @language "deutsch")

(

(set #Welcome
  (cat "Wilkommen zur VolChange Installation\n\n"
       "Copyright 1999 by Frank Fenn\n"))

(set #VolChangeDir
  (cat "Bitte wählen sie das VolChange Zielverzeichnis\n"
       "(Es wird kein eigenes Verzeichnis erstellt!)"))

(set #WhatCatalog
  (cat "Welches Katalogfile möchten sie installieren\n"
       "(Englische Sprache eingebaut)"))

(set #done_1
  (cat "\nVolChange wurde erfolgreich installiert\n\n"
       "Klicken sie auf das \"VolChange\" Piktogramm im Verzeichnis\n\n"))

(set #done_2
  (cat "\n\nzum Starten\n\n"
       "Bitte senden sie Felermeldungen und Verbesserungsvorschläge an [e-mail]"))

(set #wrongOS           "VolChange benötigt mindestens OS2.04\n")
(set #WhatInstall       "Was möchten sie installieren?")
(set #StartPgm          "Möchten sie das Programm jetzt starten?")
(set #AlreadyInstalled1 "VolChange ist bereits installiert\n\n")
(set #AlreadyInstalled2 " ist die installierte Version\n\n")
(set #AlreadyInstalled3 " soll kopiert werden")
(set #VolChange         "VolChange")
(set #Docs              "VolChange Dokumente")
(set #Guide             "VolChange Guide")
(set #StartHelp         "Wenn sie das Programmsofort starten möchten antworten sie bitte mit Ja\n\n")
(set #CopyingPgm        "\nKopiere VolChange nach %s.")
(set #CopyingDocs       "\nKopiere Dokumentation")
(set #CopyingGuide      "\nKopiere VolChangeGuide nach ")
(set #Yes               "Ja")
(set #No                "Nein")

)

)

;--- Checking environment ---

(set OS_ver (getversion "exec.library" (resident)))
(if (< OS_ver (* 40 65536)) (abort #wrongOS))

(welcome #Welcome)

(set Catalog_lang
   (askoptions
      (prompt  #WhatCatalog)
      (help    @askoptions-help)
      (choices "Deutsch")
      (default #def_cat_lang)
   )
)

(if (= 0 @user-level)
  (set install_level %000111)
  (set install_level (askoptions
                        (prompt #WhatInstall)
                        (help   @askoptions-help)
                        (choices #VolChange #Docs #Guide)
                     )
  )
)

(set my_level @user-level)
(user 2)
(set VolChangedest
  (askdir (prompt  #VolChangeDir)
          (help    @askdir-help)
          (default @default-dest)
          (disk)
  )
)

(user my_level)

(set copy_VolChange (BITAND %000001 install_level))
(set copy_docs     (BITAND %000010 install_level))
(set copy_guide    (BITAND %000100 install_level))

(if copy_VolChange
  (
    (set @default-dest VolChangedest)
    (set VolChangetacked (tackon VolChangedest "VolChange"))

    (copyfiles (prompt (#CopyingPgm VolChangedest))
               (help    def_help @copyfiles-help)
               (source "VolChange")
               (dest    VolChangedest)
    )

    (complete 25)

    (copyfiles (prompt (#CopyingPgm VolChangedest))
               (help    def_help @copyfiles-help)
               (source "VolChange.info")
               (dest    VolChangedest)
    )

    (complete 50)

  )
)

(if copy_guide
  (
    (set @default-dest VolChangedest)
    (set VolChangetacked (tackon VolChangedest "VolChange"))

    (copyfiles (prompt (#CopyingGuide VolChangedest))
               (help    def_help @copyfiles-help)
               (source "VolChangeGuide")
               (dest    VolChangedest)
    )

    (complete 75)

    (copyfiles (prompt (#CopyingGuide VolChangedest))
               (help    def_help @copyfiles-help)
               (source "VolChangeGuide.info")
               (dest    VolChangedest)
    )

    (complete 100)
  )
)

(if (> Catalog_lang 0)
  (
    (set Cat_dir "LOCALE:catalogs")
    (if (bitand Catalog_lang #def_lang_Deutsch)
      (
        (set lang "deutsch")
        (copyfiles (source (tackon "catalogs" lang))
                   (choices "VolChange.catalog")
                   (dest (tackon Cat_dir lang))
        )
      )
    )
  )
)

(set startpgm
  (askbool (prompt  #StartPgm)
           (help    #StartHelp)
           (default #No)
           (choices #Yes #No)
  )
)

(if startpgm
  (run "run >NIL:" (tackon VolChangedest "VolChange"))
)

(message #done_1 "\"" VolChangedest "\"" #done_2)